﻿Imports Microsoft.VisualBasic

Public Class DBBudgetSP
    Inherits DBParentStoredProcedureClass

    Public Operation As New TableField("Operation", Data.SqlDbType.NVarChar)
    Public ID As New TableField("ID", Data.SqlDbType.Int)
    Public Year As New TableField("Year", Data.SqlDbType.Int)
    Public ProgramNo As New TableField("ProgramNo", Data.SqlDbType.Int)
    Public ActivityNo As New TableField("ActivityNo", Data.SqlDbType.Int)

    Sub New()
        MyBase.StoredProcedureName = "BudgetSP"
    End Sub

    Public Shadows Function QueryDatabase(ByVal QueryType As SqlQueryType, _
                                 Optional ByVal Operation As String = "", _
                                 Optional ByVal ID As String = "", _
                                 Optional ByVal Year As String = "", _
                                 Optional ByVal ProgramNo As String = "", _
                                 Optional ByVal ActivityNo As String = "") As Object

        MyBase.FieldsArrayList = New ArrayList
        Me.Operation.SetValue(Operation, MyBase.FieldsArrayList)
        Me.ID.SetValue(ID, MyBase.FieldsArrayList)
        Me.Year.SetValue(Year, MyBase.FieldsArrayList)
        Me.ProgramNo.SetValue(ProgramNo, MyBase.FieldsArrayList)
        Me.ActivityNo.SetValue(ActivityNo, MyBase.FieldsArrayList)

        Return MyBase.QueryDatabase(QueryType)
    End Function

End Class
